home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 January: Mac OS SDK / Dev.CD Jan 97 SDK1.toast / Development Kits (Disc 1) / AppleScript / Development Tools / Interfaces / AppleScript 1.1 Interfaces / PInterfaces / ASRegistry.p < prev    next >
Encoding:
Text File  |  1994-04-08  |  7.0 KB  |  284 lines  |  [TEXT/MPS ]
  1. {
  2. ////////////////////////////////////////////////////////////////////////////////
  3. // Copyright © 1991 Apple Computer, Inc. All rights reserved.
  4. // Author: Warren Harris
  5. ////////////////////////////////////////////////////////////////////////////////
  6. // Registry constants
  7. ////////////////////////////////////////////////////////////////////////////////
  8. }
  9.  
  10. {$IFC UNDEFINED UsingIncludes}
  11. {$SETC UsingIncludes := 0}
  12. {$ENDC}
  13.  
  14. {$IFC NOT UsingIncludes}
  15.     UNIT ASRegistry;
  16.     INTERFACE
  17. {$ENDC}
  18.  
  19. {$IFC UNDEFINED UsingASRegistry}
  20. {$SETC UsingASRegistry := 1}
  21.  
  22. {$I+}
  23. {$SETC ASRegistryIncludes := UsingIncludes}
  24. {$SETC UsingIncludes := 1}
  25.  
  26. {$IFC UNDEFINED UsingAERegistry}
  27. {$I $$Shell(PInterfaces)AERegistry.p}
  28. {$ENDC}
  29. {$IFC UNDEFINED UsingAEObjects}
  30. {$I $$Shell(PInterfaces)AEObjects.p}
  31. {$ENDC}
  32.  
  33. {$SETC UsingIncludes := ASRegistryIncludes}
  34.  
  35. CONST
  36.     keyAETarget                    = 'targ';
  37.     keySubjectAttr                = 'subj';
  38.     
  39.     { Magic 'returning' parameter: }
  40.     keyASReturning                = 'Krtn';
  41.  
  42.     { AppleScript Specific Codes: }
  43.     kASAppleScriptSuite            = 'ascr';
  44.     kASTypeNamesSuite            = 'tpnm';
  45.  
  46.     { Dynamic Terminologies }
  47.     typeAETE                    = 'aete';
  48.     typeAEUT                    = 'aeut';
  49.     kGetAETE                    = 'gdte';
  50.     kGetAEUT                    = 'gdut';
  51.     kUpdateAEUT                    = 'udut';
  52.     kUpdateAETE                    = 'udte';
  53.     kCleanUpAEUT                = 'cdut';
  54.     kASComment                    = 'cmnt';    { comment events }
  55.     kASLaunchEvent                = 'noop';
  56.  
  57.     { subroutine calls }
  58.     kASSubroutineEvent            = 'psbr';
  59.     keyASSubroutineName            = 'snam';
  60.  
  61.     { Operator Events: }
  62.     {        Binary: }
  63.     kASAdd                        = '+   ';
  64.     kASSubtract                    = '-   ';
  65.     kASMultiply                    = '*   ';
  66.     kASDivide                    = '/   ';
  67.     kASQuotient                    = 'div ';
  68.     kASRemainder                = 'mod ';
  69.     kASPower                    = '^   ';
  70.     kASEqual                    = kAEEquals;
  71.     kASNotEqual                    = '≠   ';
  72.     kASGreaterThan                = kAEGreaterThan;
  73.     kASGreaterThanOrEqual        = kAEGreaterThanEquals;
  74.     kASLessThan                    = kAELessThan;
  75.     kASLessThanOrEqual            = kAELessThanEquals;
  76.     kASComesBefore                = 'cbfr';
  77.     kASComesAfter                = 'cafr';
  78.     kASConcatenate                = 'ccat';
  79.     kASStartsWith                = kAEBeginsWith;
  80.     kASEndsWith                    = kAEEndsWith;
  81.     kASContains                    = kAEContains;
  82.     kASAnd                        = kAEAND;
  83.     kASOr                        = kAEOR;
  84.     {        Unary: }
  85.     kASNot                        = kAENOT;
  86.     kASNegate                    = 'neg ';
  87.     keyASArg                    = 'arg ';
  88.  
  89.     kASErrorEventCode            = 'err ';    { event code for the 'error' statement }
  90.     kOSAErrorArgs                = 'erra';    { not used }
  91.  
  92.     { Properties: }
  93.     pLength                        = 'leng';
  94.     pReverse                    = 'rvse';
  95.     pRest                        = 'rest';
  96.     pInherits                    = 'c@#^';
  97.  
  98.     { User-Defined Record Fields: }
  99.     keyASUserRecordFields        = 'usrf';
  100.     typeUserRecordFields        = typeAEList;
  101.  
  102.     { Prepositions: }
  103.     keyASPrepositionAt            = 'at  ';
  104.     keyASPrepositionIn            = 'in  ';
  105.     keyASPrepositionFrom        = 'from';
  106.     keyASPrepositionFor            = 'for ';
  107.     keyASPrepositionTo            = 'to  ';
  108.     keyASPrepositionThru        = 'thru';
  109.     keyASPrepositionThrough        = 'thgh';    { this should be = 'thru';!!! }
  110.     keyASPrepositionBy            = 'by  ';
  111.     keyASPrepositionOn            = 'on  ';
  112.     keyASPrepositionInto        = 'into';
  113.     keyASPrepositionOnto        = 'onto';
  114.     keyASPrepositionBetween        = 'btwn';
  115.     keyASPrepositionAgainst        = 'agst';
  116.     keyASPrepositionOutOf        = 'outo';
  117.     keyASPrepositionInsteadOf    = 'isto';
  118.     keyASPrepositionAsideFrom    = 'asdf';
  119.     keyASPrepositionAround        = 'arnd';
  120.     keyASPrepositionBeside        = 'bsid';
  121.     keyASPrepositionBeneath        = 'bnth';
  122.     keyASPrepositionUnder        = 'undr';
  123.     keyASPrepositionOver        = 'over';
  124.     keyASPrepositionAbove        = 'abve';
  125.     keyASPrepositionBelow        = 'belw';
  126.     keyASPrepositionApartFrom    = 'aprt';
  127.     keyASPrepositionGiven        = 'givn';
  128.     keyASPrepositionWith        = 'with';
  129.     keyASPrepositionWithout        = 'wout';
  130.     { not in ERS: }
  131.     keyASPrepositionAbout        = 'abou';
  132.     keyASPrepositionSince        = 'snce';
  133.     keyASPrepositionUntil        = 'till';
  134.  
  135.     { Terminology & Dialect things: }
  136.     kDialectBundleResType        = 'Dbdl';
  137.  
  138.     { AppleScript Classes and Enums: }
  139.     cConstant                    = typeEnumerated;
  140.     cClassIdentifier            = pClass;
  141.     cObjectBeingExamined        = typeObjectBeingExamined;
  142.     cList                        = typeAEList;
  143.     cSmallReal                    = typeSMFloat;
  144.     cReal                        = typeFloat;
  145.     cRecord                        = typeAERecord;
  146.     cReference                    = cObjectSpecifier;
  147.     cUndefined                    = 'undf';
  148.     cSymbol                        = 'symb';
  149.     cLinkedList                    = 'llst';
  150.     cVector                        = 'vect';
  151.     cEventIdentifier            = 'evnt';
  152.     cKeyIdentifier                = 'kyid';
  153.     cUserIdentifier                = 'uid ';
  154.     cPreposition                = 'prep';
  155.     cKeyForm                    = enumKeyForm;
  156.     cScript                        = 'scpt';
  157.     cHandler                    = 'hand';
  158.     cProcedure                    = 'proc';
  159.     cClosure                    = 'clsr';
  160.     cRawData                    = 'rdat';
  161.     cString                        = typeChar;
  162.     cNumber                        = 'nmbr';
  163.     cListOrRecord                = 'lr  ';
  164.     cListOrString                = 'ls  ';
  165.     cListRecordOrString            = 'lrs ';
  166.     cNumberOrDateTime            = 'nd  ';
  167.     cNumberDateTimeOrString        = 'nds ';
  168.     cSeconds                    = 'scnd';
  169.  
  170.     enumBooleanValues            = 'boov';
  171.     kAETrue                        = typeTrue;
  172.     kAEFalse                    = typeFalse;
  173.  
  174.     enumMiscValues                = 'misc';
  175.     kASCurrentApplication        = 'cura';
  176.  
  177.     { User-defined property ospecs: }
  178.     formUserPropertyID            = 'usrp';
  179.  
  180.     { Global properties: }
  181.     pASIt                        = 'it  ';
  182.     pASMe                        = 'me  ';
  183.     pASResult                    = 'rslt';
  184.     pASSpace                    = 'spac';
  185.     pASReturn                    = 'ret ';
  186.     pASTab                        = 'tab ';
  187.     pASPi                        = 'pi  ';
  188.     pASParent                    = 'pare';
  189.     kASInitializeEventCode        = 'init';
  190.     pASPrintLength                = 'prln';
  191.     pASPrintDepth                = 'prdp';
  192.     pASTopLevelScript            = 'ascr';
  193.  
  194.     { Considerations }
  195.     kAECase                        = 'case';
  196.     kAEDiacritic                = 'diac';
  197.     kAEWhiteSpace                = 'whit';
  198.     kAEHyphens                    = 'hyph';
  199.     kAEExpansion                = 'expa';
  200.     kAEPunctuation                = 'punc';
  201.     kAEZenkakuHankaku            = 'zkhk';
  202.     kAESmallKana                = 'skna';
  203.     kAEKataHiragana                = 'hika';
  204.     enumConsiderations            = 'cons';
  205.  
  206.     { AppleScript considerations: }
  207.     kASConsiderReplies            = 'rmte';
  208.  
  209.     cCoercion                    = 'coec';
  210.     cCoerceUpperCase            = 'txup';
  211.     cCoerceLowerCase            = 'txlo';
  212.     cCoerceRemoveDiacriticals    = 'txdc';
  213.     cCoerceRemovePunctuation    = 'txpc';
  214.     cCoerceRemoveHyphens        = 'txhy';
  215.     cCoerceOneByteToTwoByte        = 'txex';
  216.     cCoerceRemoveWhiteSpace        = 'txws';
  217.     cCoerceSmallKana            = 'txsk';
  218.     cCoerceZenkakuhankaku        = 'txze';
  219.     cCoerceKataHiragana            = 'txkh';
  220.  
  221.     { Lorax things: }
  222.     cZone                        = 'zone';
  223.     cMachine                    = 'mach';
  224.     cAddress                     = 'addr';
  225.     cRunningAddress                = 'radd';
  226.     cStorage                    = 'stor';
  227.  
  228.     { DateTime things: }
  229.     pASWeekday                    = 'wkdy';
  230.     pASMonth                    = 'mnth';
  231.     pASDay                        = 'day ';
  232.     pASYear                        = 'year';
  233.     pASTime                        = 'time';
  234.     pASDateString                = 'dstr';
  235.     pASTimeString                = 'tstr';
  236.  
  237.     { Months }
  238.     cMonth                        = pASMonth;
  239.     cJanuary                    = 'jan ';
  240.     cFebruary                    = 'feb ';
  241.     cMarch                        = 'mar ';
  242.     cApril                        = 'apr ';
  243.     cMay                        = 'may ';
  244.     cJune                        = 'jun ';
  245.     cJuly                        = 'jul ';
  246.     cAugust                        = 'aug ';
  247.     cSeptember                    = 'sep ';
  248.     cOctober                    = 'oct ';
  249.     cNovember                    = 'nov ';
  250.     cDecember                    = 'dec ';
  251.  
  252.     { Weekdays }
  253.     cWeekday                    = pASWeekday;
  254.     cSunday                        = 'sun ';
  255.     cMonday                        = 'mon ';
  256.     cTuesday                    = 'tue ';
  257.     cWednesday                    = 'wed ';
  258.     cThursday                    = 'thu ';
  259.     cFriday                        = 'fri ';
  260.     cSaturday                    = 'sat ';
  261.  
  262.     { AS 1.1 Globals: }
  263.     pASQuote                    = 'quot';
  264.     pASSeconds                    = 'secs';
  265.     pASMinutes                    = 'min ';
  266.     pASHours                    = 'hour';
  267.     pASDays                        = 'days';
  268.     pASWeeks                    = 'week';
  269.  
  270.     { Writing Code things: }
  271.     cWritingCodeInfo            = 'citl';
  272.     pScriptCode                    = 'pscd';
  273.     pLangCode                    = 'plcd';
  274.  
  275.     { Magic Tell and End Tell events for logging: }
  276.     kASMagicTellEvent            = 'tell';
  277.     kASMagicEndTellEvent        = 'tend';
  278.  
  279. {$ENDC}    { UsingASRegistry }
  280.  
  281. {$IFC NOT UsingIncludes}
  282.     END.
  283. {$ENDC}
  284.